home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macros.arc / RASH.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  657 b   |  9 lines
  1.  
  2. *                                                                               
  3. *MOVE A TO B (SINGLE-VAR) WITH N (CONST) BIT                                    
  4. *RIGHT ARITHMETIC SHIFT                                                         
  5. *                                                                               
  6. RASH  $MACRO A,B,N     MOVE WITH RIGHT ARITH. SHIFT                             
  7.       LAC  :A:,16-:N:  LOAD :A: RIGHT SHIFT                                     
  8.       SACH :B:,0       STORE HIGH TO :B:                                        
  9.       $END